Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/card_89380.txt

Text File | 1990-08-14 | 11.3 KB | 566 lines

-- card: 89380 from stack: in
-- bmap block id: 90131
-- flags: 4000
-- background id: 69011
-- name: Exceptions
----- HyperTalk script -----
on openCard
  global buttonName, buttonList
  put the long date into field date
  get item 2 to 3 of the abbrev date
  put empty into first char of it
  put it into card field "From"
  put it into card field "To"
  set hilite of background button id buttonName to false
  repeat with index = 1 to the number of lines of buttonList
    set hilite of background button id line index of buttonList to false
  end repeat
end openCard

on closeCard
  global buttonName, buttonList
  set hilite of background button id buttonName to true
  repeat with index = 1 to the number of lines of buttonList
    set hilite of background button id line index of buttonList to true
  end repeat
  repeat with index = 7 to 11
    set hilite of button id index to false
  end repeat
  set hilite of button id 12 to true
  set hilite of button id 13 to false
  set hilite of button id 14 to false
  set hilite of button id 15 to true
  set hilite of button id 16 to false
  set hilite of button id 17 to false
  set hilite of button id 18 to true
  set hilite of button id 19 to false
  set hilite of button id 20 to false
  put empty into card field id 21
  put empty into card field id 22
  put empty into card field id 23
  put empty into card field id 24
end closeCard

on groupOne
  if the shiftKey is down then
    set hilite of target to not hilite of target
  else
    lock screen
    repeat with index = 7 to 11
      set hilite of button id index to false
    end repeat
    set hilite of target to true
    unlock screen
  end if
end groupOne



-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=66 top=29 right=46 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Students
----- HyperTalk script -----
on mouseUp
  lock screen
  go to card short name of me of this stack
  unlock screen
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=156 top=29 right=46 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Periods
----- HyperTalk script -----
on mouseUp
  lock screen
  go to card short name of me of this stack
  unlock screen
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=336 top=29 right=46 bottom=422
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Format
----- HyperTalk script -----
on mouseUp
  lock screen
  go to card short name of me of this stack
  unlock screen
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=81 top=273 right=291 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  lock screen
  go to card "Exception Report" of this background
  unlock screen
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=191 top=273 right=291 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  lock screen
  pop card
  unlock screen
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=66 top=95 right=109 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=66 top=109 right=123 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=66 top=123 right=137 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=66 top=137 right=151 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=66 top=151 right=165 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=314 top=102 right=118 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Male
----- HyperTalk script -----
on mouseUp
  set hilite of button id 13 to false
  set hilite of button id 14 to false
  set hilite of me to true
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=314 top=118 right=134 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Female
----- HyperTalk script -----
on mouseUp
  set hilite of button id 12 to false
  set hilite of button id 14 to false
  set hilite of me to true
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=314 top=134 right=150 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Both
----- HyperTalk script -----
on mouseUp
  set hilite of button id 12 to false
  set hilite of button id 13 to false
  set hilite of me to true
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=314 top=174 right=190 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Active
----- HyperTalk script -----
on mouseUp
  set hilite of button id 16 to false
  set hilite of button id 17 to false
  set hilite of me to true
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=314 top=190 right=206 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Inactive
----- HyperTalk script -----
on mouseUp
  set hilite of button id 15 to false
  set hilite of button id 17 to false
  set hilite of me to true
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=314 top=206 right=222 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Both
----- HyperTalk script -----
on mouseUp
  set hilite of button id 15 to false
  set hilite of button id 16 to false
  set hilite of me to true
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=314 top=244 right=260 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Excused
----- HyperTalk script -----
on mouseUp
  set hilite of button id 19 to false
  set hilite of button id 20 to false
  set hilite of me to true
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=314 top=260 right=276 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Unexcused
----- HyperTalk script -----
on mouseUp
  set hilite of button id 18 to false
  set hilite of button id 20 to false
  set hilite of me to true
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=314 top=276 right=292 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Both
----- HyperTalk script -----
on mouseUp
  set hilite of button id 18 to false
  set hilite of button id 19 to false
  set hilite of me to true
end mouseUp



-- part 21 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=134 top=185 right=203 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=209 top=185 right=203 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=213 right=231 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: From


-- part 24 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=237 right=255 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To


-- part contents for background part 28
----- text -----
Abrosimoff, Mich…
Adams, Bryan
Alexander, Rick
Alexander, Susan
Allsop, Blair M.
Azimov, Isaac
Barisoff, Larissa
Bunyan, Paul
Burnyeat, Grant
Caldwell, Brian



-- part contents for background part 29
----- text -----
47
80
53
54
52
102
48
13
94
93

-- part contents for background part 30
----- text -----
Present
Present
Present
Present
Present
Present
Present
Present
Present
Present


-- part contents for background part 33
----- text -----
0 students selected

-- part contents for background part 31
----- text -----
Monday, September 4, 1989